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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
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FACILITY: NETWORK MANAGEMENT LISTENER 


ABSTRACT: This single module is the LOOPBACK MIRROR. It is the 

poe | rts ply management rad Be specified for the 
application layer of the Digital Network Architecture. 
Its purpose is to test logical Links either between nodes 
or within a single node. 


ENVIRONMENT: 
MODE = USER 
; AUTHOR: KARL MALIK, CREATION DATE: 15-APR-1980 
; MODIFIED BY: 
v03-001 MSHO001 Maryann S. Hinden 19-NOV-1981 
Add global references to library calls. 
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; NONE 
MACROS: 
; NONE 
OWN STORAGE: 
: .PSECT 
LOGNAME : .ASCID 
LOGNAM2: .ASCID 
LOG2DESC: 


- LONG 
LOG2BUF : .BLKB 
DEVDESC: .ASCID 
DEV_CHAN: 

-BLKW 
10SB:  .BLKQ 
NCBDESC: .LONG 

~ LONG 
NCB:  .BLKB 


BASEADR: .BLKL 
FER: 


BUFFER: .BLKB 
MAX_DATA=<. -BUFF 


DATA_SIZE: 
. LONG 
RECV_SIZE: 
.BLKL 


: INCLUDE FILES: 


DECLARATIONS 


EQUATED SYMBOLS: 


MIRRORSDATA 
/SYSS$NET/ 
/MIRRORSSIZE/ 


2BUF 


' ooo 
zone 


mm 
— 
~ 


—- O2Z2o —— ~—Cr— 
as” 


4096+1 
ER>-1 


MAX_DATA#+1 
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SHR ,NOEXE,RD,WRT BYTE 
; Logical name & descriptor 
; Logical name & descriptor 


Pseudo-device & descriptor 


; Word to receive device channel # 
; 1/0 status block 


; NCB descriptor 
; Network connect block 


Adr of buffer if MIRRORSSIZE used 
Buffer : 

Max size of data receivable (not 
; Counting function code) 

Current size of buffer 


:; # of bytes received 
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p++ 
; FUNCTIONAL DESCRIPTION: 


When the LOOPBACK MIRROR accepts a connect, it returns its 
maximum data size minus 1 in the tg data. This is the amount 
of data it can handle, not counting the function code. 


(It is possible to spect iy the maximum data size by defining 
the Logical name 'MIRRORSSIZE' in SYSSSYSTEM:MIRROR.COM. If 
"MIRRORSSIZE’ is not defined ( or is equal to zero ) then the 
default value of 4096 is used. 


When a Logical Loopback message is received, it is changed 
into the Sopresrrere response message and returned to the user. 
The Loopback Mirror continues to repeat all traffic offered. 
The initiator of the Link disconnects it. 


CALLING SEQUENCE: 


CONNECTED TO BY NETWORK MANAGEMENT LISTENER 


INPUT PARAMETERS: 


NONE 


IMPLICIT INPUTS: 


LOGICAL NAME 'SYSS$NET‘ 
LOGICAL NAME ‘MIRRORSSIZE* (OPTIONAL) 


OUTPUT PARAMETERS: 


NONE 


IMPLICIT OUTPUTS: 


NONE 


COMPLETION CODES: 


SUCCESS -> SENDS 1 AS THE FIRST BYTE OF THE LOGICAL LOOPBACK 
RESPONSE MESSAGE. 


FAILURE => SENDS -1 (REMAINDER OF LOGICAL LOOPBACK MESSAGE IS 
DISCARDED). 


SIDE EFFECTS: 
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NONE 


~SBTTL MAIN 
-PSECT MIRRORSCODE NOSHR ,EXE,RD,NOWRT ,BYTE 


ENTRY MIRROR, “M<> ; Entry point from exec 


K 
MIRR = DECNET-VAX LOOPBACK MIRROR 16-SEP=1 
yO0~000 MAIN g- Ser 
1 -ENABL LSB 
g | ASSIGN A CHANNEL TO _NET: . 
155 SASSIGN_S - 
1 : “DEVNAM=W*DEVDESC, = 
0 f CHAN=W*DEV_CHA 
03 50 &8 0 159 BLBS RO,10$ 
0186 «= 31 1 160 BRw EX{T 
01 161 
O19 16¢ 
19 163 ; CONTAINED IN THE 
019 164 
0019 165 10S: STRNLOG_S - 
0019 166 “LOGNAM=W“LOGNAME , = 
0019 16 RSLLEN=W°NCBDESC,- 
0019 168 RSLBUF =U*NCBDESC 
03 50 8 Oe 189 BLBS RO, 30$ 
6167 31.—«00 170 20S: BRW Ex{T 
50 0000'°8F 81 0038 171 30S: CMPW 86s #SS$_NOTRAN, RO 
F613 9030 17 BEQL 208 
OO3F 17 
OO3F 174 ; 
OO3F 175: 
OO3F 176: 
OO3F 177: 
003F 178 STRNLOG_S - 
OO3F 179 “LOGNAM=W“LOGNAM2, = 
O03F 180 RSLLEN=W“LOG2DESC,- 
OO3F 181 RSLBUF =W*LOG2DESC 
03 50 Es 0058 182 BLBS  R0,40$ 
0141 1 0058 18 BRW EX 
55 OOFO'CF DE OOSE 184 40S: MOVAL W*BUF 
50 0000'8F 81 0063 185 CMPW 8 soW#SSS NOTRAN. RO 
38 413 0068 186 BEQL OoDEFA AULT 
006A 187 
10F1°CF DF 006A 188 PUSHAL W*DATA_SIZE 
0022"CF 7F O06E 189 PUSHAQ W*LOG2DESC 
00000000'GF 02 FB 0072 190 CALLS #2,G°FORSCNV_IN_I 
03 50 €8 0079 191 BLBS R0,50$ 
0120 31 O07C 19¢ BRW 
OO7F 4619 
O7F 194 
7F 36.195 
7F 196 
10F1°CF 05 7F «197 S08: TSTL USDATA SIZE 
™ 6|(CF 83 198 BEQL FAOLT 
10F1°CF D6 0085 199 INCL UeDATA SIZE 
OOEC'CF DF 0089 200 PUSHAL W*BASEADR 
10F1°CF DF 008D o1 PUSHAL W*DATA SIZE 
00000000' GF 98 FB 091 é CALLS #2,G°1 G°LTB $GET_VM 
07 E9 0098 BLBC OséR EFAULT™ 
55 OOEC'CF 00 00 4 MOVL USGASEADR RG 
07 11 OOA 5 BRB 
AS 509 
A 
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; Enable local symbol block 


: Adr of pseudo device prone ay y 
; Adr of word to store channe 


; Branch on success 
+ Branch (failure) 


Translate SYSS$NET 


Branch on success 


; Branch rrerewres 
; Did we translat 
; No BBs pa tg dl SYSSNET, just quit 


; TRANSLATE THE Looe NAME SYSSNET TO OBTAIN THE CONNECTION INFORMATION 


; Descriptor for hee fy 
; Substitute new Len 
; Address of modifie 


tice descriptor 


TRANSLATE THE LOGICAL NAME MIRRORSSIZE AND CONVERT IT TO A HEX VALUE. IF 
NO TRANSLATION (OR VALUE IS TOO BIG OR SMALL) THEN USE 4096 DEFAULT. 


; Translate MIRRORSSIZE 
3; Descriptor for MIRRORS$SIZE 


Branch on success 
Branch (failure) 


Set up to use default buffer 


Did we translate? 


No translation, branch and use default 


Adr to receive hex output 
Adr of ascii descriptor 


; Convert ascii to hex 


Branch on success 
Branch (failure) 


MAKE SURE THAT THE VALUE IS WITHIN ACCEPTABLE LIMITS. 


Is it 0? 


: Branch if entered value is 0 
: Leave room for function code 


Adr to put starting adr of buffer 


# of b 
Allocate the ne 


tes to allocate 


w buffer 
Use the Ps i if LIBSGET VM failed 
Set up to use new buffer 
OK, entered value is acceptable 


( 


4 
1 


)| 


Ll 9 
" RRO = DECNET-VAX LOOPBACK MIRROR 16-SEP-1984 t Bi:3 p66 ONOR Macro V04-00 Page 
vO04- MAIN 


-SEP=-1984 MIRROR. SRCIMiRROR.MAR; 1 
10F 1°CF 1900 BF 3C A 8 MOVZWL #MAX_DATA,W*DATA_SIZE ; Use 4096 default value 
10Fi'CF 06 ay 09 55$: INCL  W*DATA_SIZE : Leave room for function code 
AD 11 3 
AD 1% 3; LOCATE THE O con. BATA. - THE NCB (IF PRESENT) AND REPLACE IT 
“4 17 : WITH THE axl XIMUM DATA 
OOAD'CF  OOAS'CF ef 3A QOA 15 60s: LOCC #*A\/\,W°NCBDESC,W*NCB ; Locate the slash 
6 12 008 18 BNEQ 70$ 3; Branch if successful 
50 +f He 087 1 MOVZWL S“#SS$_ABORT,RO ; Set up error code (LOCC zeroed RO) 
00 1 OQOBA 8 BRW EXIT : Branch (failure) 
1 82 D 19 708: TSTwW (R1)+ 3; Skip over word 
1 F 0 TSTB (R1)+ ; Skip one more byte 
81 02 90 00C1 1 MOVB #2, (R1) ; Alter count fie 
61 10F1'CF BO 00C4 : MOVW  W*DATA SIzE, (R1) : Substitute maximum data size 
81 B67 O00C9 DECW (R1)+ 3; Leave room for function code 
61 22 «90 Bace : MOVB #*Aa/''7,(R1) 3; Add new termination character 
Boee § 3; ACCEPT THE CONNECTION REQUEST FROM NETWORK MANAGEMENT LISTENER. 
OOCE 8 $Q10W_S - ; Issue connect confirm request 
OOCE $3 mtn ; Use local event flag #1 
OOCE 0 CHAN=W“DEV 3; Use the pes iqned channel 
OOCE 231 FUNC= S-#108 “ACCESS, - _: Accept the Link 
OOCE 3 10SB=W* ; Address of 1/0 status block 
OOCE 3 SOS ENCBDESG” 3; Address of NCB descriptor 
03 50 8 OOF 1 34 BL8s RO,80$ 3; Branch on success 
00A 1 OOF4 35 BRW EXIT ; Branch (failure) 
50 O09D'CF 3C OOF7 36 80S: MOVZWL W*IOSB,RO : Get 1/0 completion status 
03 50 gs OOFC 37 BLBS RO,W*LOOP : Branch on success 
009D = 31 OFF 38 BRW EXiT : Branch (failure) 
819 sf 3; RECEIVE A MESSAGE FROM NAL. 
010 $s Loop: $Q10W_S - ; Issue receive request 
010 24 EFN= =#1 .- ; Use local event flag #1 
810 44 CHAN=W“DEV ; Use assigned channe 
19 45 FUNC= S7 #108. SREABVBLK. - ; Read virtual block 
01 46 Nb w* 10S 3; Address of 1/0 status block 
010 47 (R5) ; Address of input buffer 
010 48 P2=W"A ZE ; Length of input buffer 
OO9D'CF OO000°8F B11 01 49 CMPW #Sss DATAOVERUN, W*I0SB ; Too much data? 
A 13 O12A 50 BEQL ; Branch if too much data 
O09D'CF 0000'8F e 1 51 CMPW #SS$_LINKABORT,W*IOSB ; Did partner issue disconnect abort? 
. 3 01 2¢ BEQL w*DISC : Branch if disconnect abort 
OO9D"CF O0000°8F 81 01 5 CMPW #SS$_LINKDISCON,W*IOSB ; Did partner issue sync disconnect? 
5 13. 013¢ 54 BEQL w*DISC : Branch if sync disconnect 
OO9D"CF O000°8F Bi 01 55 CMPW os3e ABORT, W*IO0SB ; Was the Link aborted Cold code)? 
55 13 014 28 BEQL DISC 3; Branch if Link aborted 
55 50 9 0147 5 BLBC Oe exIT ; Branch on failure 
50 0090 D'CF 3C O14A 38 MOVZWL RO ,ueED RO : Get 1/0 completion status 
D50~ =«OoEO 136 a BLBC RO, W*EXIT ; Branch on failure 
3 63 ; MAKE SURE THAT THE FUNCTION CODE IS ZERO. 
65 95 015 6 ‘ TSTB (R5) ; Is function code correct? 
0B 13 0154 64 BEQL 100$ 3: Branch if zero (valid) 
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16-SEP-19 
“SEP=19 
90$: MOVB #-1,(R5) 
MOVZBW #1,W*10SB+2 
REFLECT 
00$: MOVB  #1,(R5) 


REFLECT THE MESSAGE BACK TO NML. 
REFLECT: 
MOV 
$Q10W_S 
EFN=#1 = 
CHAN=WvE 


FUNC=#10$ 
10SB=W*10 


P1=(R5),- 
P2=W*RECV_SIZE 
BLBC ——RO, EXIT 
MOVZWL wW*{0SB,RO 
BLBC _—s«RO, EXIf 
BRW LOOP 


E 
SC:  MOVZWL S*#SS$_NORMAL,RO 
IT:  $EXIT_S RO 


-DSABL LSB 
- END MIRROR 


W*10SB+2,W*RECV_SIZE 


V_CHAN, = 
ORITEVBLK,= 
58,- 
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Set up failure return code 
Set up new Length 

Branch and continue 

Set up success return code 


Get length of message to reflect 
Issue transmit request 

Use local event flag #1 

Use assigned channe 

Write virtual block 

Address of I/0 status block 
Address of output buffer 
Length of output buffer 
Branch on failure 

Get 1/0 completion status 
Branch on failure 

Reissue receive request 


Set up success status code 
Exit with status to be displayed 
on exit 


; Disable local symbol block 


Image transfer address 


SSeS ’ 
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Symbol table gree 138 Bhi 35:28 UMIRROR. SREIMIRROR-MAR: 1 ° (1), 
1 = 8 0001 
BASEADR ote Rg 1 
FER 8 : FO R 1 
DATA_SIZE QOOO10F1 R 1 
DEF AOLT BRe OOA2 R 2 
DEVDESC QOOOOBE R 01 
DEV_CHAN 00000098 R 01 
st Q000019C R 0 
EXIT QOOO019F R 0 
FORSCNV_IN_I eereeeee =X 0 
10$ ACCESS eereeeee = =X | 
10$~ JRE ADVB eeeerere ® 0 
10$~ URITEVBLK eeereree X 0 | 
10S6 0000009D R 01 
LIBSGET_VM eeeeeere =X 02 | 
LOG2BUF sie it R 01 
LOG2DESC 00000022 R 01 
LOGNAM2 QOOOOOOF R 01 
LOGNAME sisi se 4 R 01 
LOOP 90000102 R 02 | 
MAX_DATA = 0000100 | 
MIRROR 00000000 RG 02 
QOOOO0AD R 01 
NCBDESC QOOO00AS R 01 
RECV_SIZE 000010F5 R Q1 
REFLECT 00000164 R 02 
S$S$_ABORT eeeeeere = X 8 02 
ss$_ _DATAOVERUN geererer x 02 
SS$_LINKABORT eeereene Xx 02 
sS$_ “LINEDISCON eteteeee x 02 
SS$_NORMAL eeeereee xX 02 
$ _NOTRAN reeeeeee x 02 | 
SYSSASSIGN teeeeenee GX 02 
SYSSEXIT teeeeeee GX 02 
SYS$Q10W eeeneere 6X 02 
SYSSTRNLOG eeeeeene GX 02 
weer ere meee em e ee ee + 
! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes | 
- ABS... 00000000 ( g-} y 69 ( 0.) NOPIC USR CON ABS LCL N ag NOEXE NORD ne NOVEC BYTE 
MIRRORSDATA QOOOO10F9 ( 434 1 ¢( #1.) NOPIC USR CON’ REL LCL SHR NOEXE RD T NOVEC BYTE 
MIRRORSCODE QO0001A8 ( 424.) O02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOUR NOVEC BYTE 
fewer ne wee eer ema me wmoenw ea $ | 
' Performance indicators ! | 
Phase Page faults CPU Time Elapsed Time 
Initialization 47 60:8 2:00.11 8:00: 1.65 
connene processing 143 :00:00.57 0:00: 3°80 
s 1 129 8 2 : 4-88 0:00:07.88 
oe Be table sort 0 7:00:00. 0:00:00.04 


ae aed 


MIRROR - DECNET-VAX LOOPBACK MIRROR 


16-SEP-1984 01:57:4 AX/VMS Macro V04-00 P 
VAX=-11 Macro Run Statistics $73 198 Bh i85ie8 M Fat 


IRROR.SRCIMIRROR.MAR; 1 (1) 


Pass 2 68 o: :00.76 0:00:03.61 
Symbol table output 4 :00:00.04 :00:00.1 
Psect synopsis output B: :00.03 :00:00.0 
Cross-reference output :00:00. ° :00:00.0 
Assembler run totals 39 00:00:03. 0:00:17.0 


The working set Limit was 1050 pages. 
8044 bytes (16 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 36 non-local and 11 local symbols. 
92 source Lines were read in Pass 1, producing 17 object records in Pass 2. 
pages of virtual memory were used to define 8 macros. 


So RB TA BOBO BOO BODO O EM eS + 


toe - 
H Macro Library statistics ! 
so + 


Macro Library name Macros defined 


.$255$DUA28: CSYSLIBISTARLET.MLB;2 8 
86 GETS were required to define 8 macros. 


MACRO/LIS=LIS$:MIRROR/OBJ=OBJ$:MIRROR MSR-°$:MIRROR/UPDATE=(ENHS:MIRROR) 


There were no errors, warnings or information messages. 


023 AH-BT13A-SE | | | UIPMENT CORPORATION 
fe VAX/VMS V4.0 — | | | AL ‘AND PROPRIETARY 


